home *** CD-ROM | disk | FTP | other *** search
/ Experimental BBS Explossion 3 / Experimental BBS Explossion III.iso / os2 / wuz11a.zip / POST-WUZ.CMD < prev    next >
OS/2 REXX Batch file  |  1994-02-07  |  1KB  |  55 lines
  1. /* Post processing for WUZ.CMD */
  2. /* (c) Copyright 1994 Scott Maxwell. */
  3.  
  4. FinalCommand=''
  5. /* ---- You can insert any commands you like between these two lines ---- */
  6. /* ---- They will be preserved if you reinstall WUZ (a new version?) ---- */
  7.  
  8. arg Name WuzWhat haveFresh haveUpdate
  9.  
  10. if WuzWhat = '' then do
  11.   Say "Post-WUZ is only meant to be used from WUZ.CMD"
  12.   exit(0)
  13. end
  14.  
  15. if WuzWhat \= 0 then
  16.   call 'wuz' WuzWhat 'here'
  17.  
  18. call 'Open-Dir' '-c' Name
  19. is4OS2 = Check4OS2()
  20.  
  21. say '0a'x"Type 'ZCLR' to remove the files and subdirectory."
  22. if is4OS2 = 1 then do
  23.   say "Hit <Alt-X> or type 'ZCLR -x' to remove files and close command line."
  24.   '@alias @Alt-x=zclr -x^r'
  25. end
  26. else
  27.   say "Type 'ZCLR -x' to also close the command line"
  28.  
  29. if haveUpdate \= '' then do
  30.   if is4OS2 = 1 then do
  31.     say "Type ZUPDATE or <Alt-u> to remove deleted files and add new files to archive."
  32.     '@alias @Alt-u=zupdate^r'
  33.   end
  34.   else
  35.     say "Type ZUPDATE to remove deleted files and add new files to the archive."
  36. end
  37.  
  38.  
  39. if haveFresh \= '' then do
  40.   if is4OS2 = 1 then do
  41.     say "Type ZFRESH or <Alt-f> to update existing files in the archive."
  42.     '@alias @Alt-f=zfresh^r'
  43.   end
  44.   else
  45.     say "Type ZFRESH to update existing files in the archive."
  46. end
  47.  
  48. interpret FinalCommand
  49.  
  50. exit
  51.  
  52. Check4OS2: procedure
  53.   '@set is4os2=%_4ver'
  54.   return DATATYPE(VALUE(is4os2,,OS2ENVIRONMENT),'N')
  55.